home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1002_CheckBox < prev    next >
Encoding:
Text File  |  1992-04-08  |  608 b   |  29 lines
  1. %case window field%
  2.     %HandleName%:%        %ControlHandle;
  3.     %fieldname%:%        %Boolean;
  4. %case create%
  5.     %HandleName% := GetNewControl (%cntlID%, newWindow);
  6.     %Enable?%
  7.     %fieldname% := false; 
  8. %case track%
  9.     if whichControl = %HandleName% then begin
  10.         TrackCheck (%HandleName%, where, %FieldName%);
  11.     end;
  12. %case itemNr%
  13.     %DefineItem%
  14. %case dialog field%
  15.     %fieldname%:%        %Boolean;
  16.     %Enable?%
  17.     %haveField%
  18. %case init field%
  19.     %fieldname% := false; 
  20.     %Enable?%
  21. %case set%
  22.     SetCheckBox (%Itemname%, %Fieldname%);
  23. %case enable%
  24.     %Enable?%
  25. %case hit%
  26.     %itemname%: begin
  27.             DoCheckbox (itemNr, %fieldname%);
  28.         end;
  29. %case finish%